home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / graphics / n-z / picscaler / picscaler_install.rexx < prev    next >
OS/2 REXX Batch file  |  1995-12-21  |  2KB  |  49 lines
  1. /*
  2. $VER: PicScaler_Install v1.0 (30 Jun 95)
  3. */
  4. options results
  5. cls='0C0A'x
  6.  
  7. call open(Shell,'con:0/11/640/50/ PicScaler_Install v1.0  -  DFD Ltd./c')
  8. call writeln Shell,cls||center('Where do you want to install PicScaler?',76)
  9.  
  10. if ~show('L','rexxsupport.library') then do
  11.   if addlib('rexxsupport.library',0,-30,0) then nop
  12.   else do
  13.     call writeln Shell,cls||center('LIBS:rexxsupport.library is not available.',76)
  14.     exit 10
  15.   end
  16. end
  17. if ~exists('LIBS:apig.library') then do
  18.   call writeln Shell,cls||center('Copying libs/apig.library to LIBS:',76)
  19.   shell command('copy >nil: libs/apig.library LIBS: clone')
  20. end
  21. if ~show('L','apig.library') then do
  22.   if addlib('apig.library',0,-30,0) then nop
  23.   else do
  24.     call writeln Shell,cls||center('LIBS:apig.library is not available.',76)
  25.     exit 10
  26.   end
  27. end
  28. if ~exists('LIBS:iff.library') then do
  29.   call writeln Shell,cls||center('Copying libs/iff.library to LIBS:',76)
  30.   shell command('copy >nil: libs/iff.library LIBS: clone')
  31. end
  32.  
  33. call SET_APIG_GLOBALS()
  34. freq = ALLOCFILEREQUEST()
  35. install_path = REQUESTFILE(freq,0,0,'Where to install PicScaler',null(),null(),1,1,null(),0,22,320,177,null())
  36. call FREEFILEREQUEST(freq)
  37. if install_path = null() then signal Die
  38. call writeln Shell,cls||center('Installing PicScaler',76)
  39. shell command('copy >nil: PicScaler 'install_path' clone')
  40. call writeln Shell,cls||center('Insalling Run_Script & Icon',76)
  41. shell command('copy >nil: Run_PicScaler#? 'install_path' clone')
  42. call writeln Shell,cls||center('- Install to "'install_path'" Complete -',76)
  43. say 'PicScaler v1.0 was installed in >> 'install_path
  44. wait 5
  45.  
  46. Die:
  47. call close Shell
  48. exit
  49.